home *** CD-ROM | disk | FTP | other *** search
/ fxPAINT 1.0 / fxPAINT 1.0.iso / developers / arexx / example.rx < prev    next >
Encoding:
Text File  |  1999-09-21  |  503 b   |  30 lines
  1. /* fx
  2.  */
  3.  
  4.         options results
  5.         address 'FXPAINT.0'
  6.  
  7.         NEWPROJECT 320 240 255 200 244
  8.         id = result
  9.  
  10.         SETCOLOR id 255 10 12
  11.         DRAW_PRESSURE 1
  12.         DRAW_BEVELBOX id 10 10 100 100 0 255 2 1
  13.  
  14.         GETWIDTH id
  15.         w=result
  16.  
  17.         GETHEIGHT id
  18.         h=result
  19.  
  20.         PLUGINFXID "test.plugin"
  21.         plug=result
  22.         SETEFFECTID  id plug
  23.         SETFXREGOPTS id 1 10
  24.         CALCFX id
  25.  
  26.         REFRESHDISPLAY id 0 0 w h
  27.  
  28.         FIXIMAGE id
  29.         EXIT
  30.